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AAAAAAAAA 
aka AAA 
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AAA AAA 
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AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
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PPPPPPPP AAAAAA SSSSSSSS_RRRRRRRR  EEEEEEEEEE  AAAAAA  —dDDDDDDDD-—iLLL NN NN ; 

PPPPPPPP AAAAAA SSSSSSSS RRRRRRRR  EEEEEEEEEE  AAAAAA  DDDDDDDD~—iLL NN NN ; 

PP PP AA AA SS RR RR EE AA AA DD DD LL NN NN : 

PP PP AA AA $5 RR RR EE AA AA DD DD LL NN N ; 

PP PP AA AA SS RR RR EE AA AA DD DD LL NNNN NN : 

PP PP AA AA 55S RR RR EE AA AA DD DD LL NNNN NN : 

PPPPPPPP ss AA AA  SSSSSS__—sRRRRRRRR~=—s« EEEEEEEE = AA AA DD DD LL NN NN NN | ; 

PPPPPPPP ss AA AA SSSSSS_—sORRRRRRRR~—s«sEEEEEEEE ~=— AA AA DD DD LL NN NN NN | : 

PP AAAAAAAAAA SS RR RR EE AAAAAAAAAA DD DD LL NN NNNN | : 

PP AAAAAAAAAA SS RR RR EE AAAAAAAAAA DD DD LL NN NNNN | : 

pp AA AA SS RR RR EE AA AA DD DD LL NN NN pam. | ; 

PP AA AA SS RR ORRTC#EE AA AA DD DD LL NN NN ig | : 

PP AA AA SSSSSSSS__—RR RR EEEEEEEEEE AA AA DDDDDDDD  LLLLLLLLLL NN NN rete | ; 

PP AA AA SSSSSSSS_—sRR RR EEEEEEEEEE AA AA DDDDDDDD LLLLLLLLLL NN NN tin | : 
} 

LL IIIIII SSSSSSSS 

LL III SSSSSSSS 

LL I] SS | 

LL 1] 5S | 

LL I] 5S 

LL I] 5S 

LL I] SSSSSS 

LL II SSSSSS | 

LL II SS | 

LL II 5S 

LL 1] SS | 

LL I] SS 

LLLLLLLLLL IIIIII SSSSSSSS 

LLLLLLLLLL JIIIII  ©SSSSSSSS | 
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MODULE ee bets TILE, E oR eAoun procedy 
DE ! 


BEGIN 


Lee RRE ARERR AAA AAA TERETE eeeee eee eee ee 


ie COPYRIGHT (c} 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


1 re SOF TWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND gh 
:® Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Hd INCLUSION OF THe og tt See wince NOTICE. had soF TWARE OR ANY OTHER 


® 

ft 

® 

® 

® 

* 

® 

' 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
® 

B > 
® 

® 

® 

* 


ITY FOR THE USE OR RELIABILITY OF ITS 


is DIGITAL ASSUMES NO RESPONS Y 
C NOT SUPPLIED BY DIGITAL. 
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1 
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1 
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1 
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TRAE AEA AAR ERE AAA 
] 


00 '++ 

4 ' FACILITY: Pascal Language Support 

99 i ABSTRACT: 

00 This module contains PASSREADLN2, which implements the 

00 VAX-11 Pascal READLN procedure. It also contains utility 
4 procedures used by textfile and string READ procedures. 


' 
! 
! 
1 
| 
1 
' 
! 
ENVIRONMENT: User mode ~ AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
: MODIFIED BY: 

i] 

] 

t 

' 

7 

! 


! 1-001 - Original. SBL 1-April-1981 

i 1-002 = Add PASS$$END READ. SBL 24-May-1982 

! 1-003 - Use a zeroed descriptor pointer to indicate that the previous 
READV on this string ended with FCBSV LAZY set. This allows the 

proper error actions to occur. SBi 10-Jan-1983 
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PASSREADLN2 READLN procedure 16-Sep-1984 01:54:22 AX-11 Bliss-32 V4.0-74 Page 
1-008 Sec laret ions 13-88-1382 Ob: 2F 328 PASRTL  SREIPASREADUN. B82; 1 . JB 
; #53 058 1 ZSBTTL ‘Declarations’ 
: 4 0 7 a 
; 5 054 1 | PROLOGUE DEFINITIONS: 
; $ 0035 i 
P | 
; 3 0037 : REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures | 
; 60 01 : 1! 
; «661 01 1 | TABLE OF CONTENTS: 
; «6 0124 1! | 
; 6 0125 1 | 
: 64 oi 5 1 FORWARD ROUTIN 
: 665 1 1 PASSREADLNO: NOVALUE ' Do a READLN 
: 66 0128 1 PASSSINIT_READ: 2 {NIT_READ NOVALUE, i Initialize for read 
; 67 0129 #1 PASSSEND_READ: JSB_END_READ NOVALUE, ' End a read 
; 68 01 9 PAS$$D0_READV: 388 DO_READV NOVALUE; i Do a READV 
: 70 O13¢ 1! | 
es 0133 1 ' MACROS: | 
co 0134 1: 
ae 0135 1! NONE 
; 0136 1! | 
: 75 0137 1 | EQUATED SYMBOLS: 
: 7% 0138 1: 
coe 0139 7 | NONE 
: «78 0140 1 
: 79 0141 1 ! FIELDS: 
: 80 O149 1! | 
; 81 0143 1: NONE 
; 682 0144 1! | 
; «83 0145 1 |! OWN STORAGE: 
; 84 0146 1! 
: 85 0147 1 
; 686 0148 1 !¢ 
; oF 0149 1 ! Declare a Pascal File Descriptor to use for a ''string file’ READV 
; «88 0150 1 i- 
: «89 0151 1 | 
: 90 0138 1 OWN | 
> 91 0153 1 PFD_READV: BLOCK CPFDSK_S SIZE+ECHARCOUNT (*~string-"), BYTE] 
: 9 0154 1 “FIEL D (PFDSFIELDS) PSECT (_PAS$CODE) 
aT 0155 1 PRESET ( 
> 94 0156 1 CPFDSV_TEXT] = 1, 
: «95 0157 1 PFDSV-NOREAD] = 1, 
: 96 0158 1 PF D$V~NOW WRITE “Ss | 
: ¥ 0159 1 PFDS$L“LENGTH) = 1 
; 98 0160 1 PFDST-NAME] = ZCHARCOUNT('=string-'), | 
: 99 0161 1 PFD$B_NAME1 = %C'-', | 
: 100 O16¢ 1 PEDSB_NAME@ = %C's', 
: 101 0163 1 PF D$SB_NAME = %C't'. 
: 108 0164 1 PFDSB-NAMEG} = 2%C'r', 
: 10 165 1 PFDSB-NAMES] = ZC'i', 
+ 104 0166 1 PF DSB_NAMEG = XC'n', | 
: 105 0167 1 PF D$SB_NAME = %C'g', 
> 106 0168 1 PFDSB-NAME8] = XC'=' 
: 107 0169 1 ); 


3 
PASSREADLN2 ADLN procedure 1b-se -1984 01:54:2 AX-11 Bliss-32 V4.0-74 
1-008 SSREADLNS - READLN procedure 1 ~3007} 387 03:34 2 PASRTL_SRCIPASREADLN.B 2;1 
ZSBTTL PASBREADL Me - READLN procedure’ 
GLOBAL ROUTINE PASSREADLN2 ( ' Do a READLN 
PFV: REF SPASSPFV_FILE_VARIABLE, ' File variable 
ERROR ! Error unwind address 
): NOVALUE = 


++ 

FUNCTIONAL DESCRIPTION: 
PASSREADLN2 implements the VAX=-11 Pascal READLN procedure. It 
flushes the remainder of the current record and positions the 
file at the beginning of the next record. 

CALLING SEQUENCE: 
CALL PASSREADLN2 (PFV.mr.r C, ERROR.j.r)) 


FORMAL PARAMETERS: 


WAAR PUNPINININIPNONIND 2 2? OP OO Oe 


R 
P 
; 109 70 1 
; 110 71 #4 
s 1711 i 1 
.% ¢ 73 (1 
. % 74 «1 
3: 6116 75 (1 
s 439 a6 : 
tS § —_f 
; % 78 1! 
: 118 0179 1! 
HB MB 
Bo BRT 
3 ¢ 0 7 1! 
s 124 0185 1! 
s Yeo 0186 1! 
> 126 0187 1! 
s 127 0188 #1! 
: 128 0189 1! PFV - The Pascal File Variable (PFV) passed by reference. 
3 : ; Boy : The structure of the PFV is defined in PASPFV.REQ. 
s 151 0 3§ 1! ERROR - Optional. If specified, the address to unwind to 
2% ; 0193 1! in case of an error. 
s 1 0194 1! 
; «134 0195 1 ! IMPLICIT INPUTS: 
: 135 0196 1! 
3; 136 0197 1! NONE 
s 137 0198 1! 
; «138 0199 1 ! IMPLICIT OUTPUTS: 
3; 139 0200 1! 
3; 6140 0201 1! NONE 
: 141 0 O 1! 
: 142 020 1 ! ROUTINE VALUE: 
3: 6143 0204 1! 
3: «146 0205 1! NONE 
3 6145 0206 1! 
: 146 0207 1 ! SIDE EFFECTS: 
: 147 0208 1! : 
3 ys 3 +4 ‘ : If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
; 150 0211 1 ! SIGNALLED ERRORS: 
: 151 0 \¢ . 3 
: 13¢ 8 13 1! 
. 14 1 !=- 
3; 6154 0215 1 
3 155 B¢i6 2 BEGIN 
3; 6156 021 
: 157 o¢i8 OCAL : 
: 158 1 FCB: REF $SPAS$FCB_CONTROL_BLOCK, ' File control block 
: 159 0220 PFV_ADDR: VOLATILE, ' Enable argument 
: 160 bs! UNWIND_ACT: VOLATILE, ! Enable argument 
; 16) 2 ¢ ERROR_ADDR: VOLATILE; ! Enable argument 
2 eee 
: 164 0225 ACTUALCOUNT; 
: 165 6 


So 
nm 
mM 
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PASSREADLNZ READLN procedure 1o-sep-1984 01:54:22 AX-11 Bliss-32 V4.0-74 PA 
1-003 PASSREADLN2 = READLN procedure 14-Sep-1984 12:51:46 PASRTL.SRC JPASREADLN.B352;1 

; 166 7 ENABLE ; 
: 24 8 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler : 
3 199 8 9 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address ; 
3 \f) 8 ¢ IF ACTUALCOUNT () GEQU 2 ‘ 
3 178 8 : ERROR_ADDR = .ERROR; ! Set unwind address : 
; 175 0236 ‘+ F 
; 176 0237 ' Validate PFV and get PFV. : 
i MBE : 
; 1% 9 40 PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); : 
s 181 0 og '¢ : 
5 ise 0245 2 ' Set unwind action to unlock file. ; 
; 2 0244 2 t= 5 
; «6184 0245 2 3 
; 185 0246 UNWIND_ACT = PASSK_UNWIND_UNLOCK; ; 
; 186 0247 3 
: 187 0248 '+ ; 3 
3; «4188 0249 ' Do common initialization. 3 
; 189 0250 2 !- : 
3; 190 0251 2 3 
° bd be3¢ 3 PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); ‘ 
; 193 0254 1+ : ; 
3 194 0255 2 !' Move to the end of the Line and do a GET. 3 
3; 6195 0256 te 3 
; 196 0257 : 
3; 197 0258 PFV CPFV$V_EOLN) = 1; 3 
3; 198 0259 2 PASSSGET (PFV CPFVSR_PFV)], FCB CFCBSR_FCBI); ° 
; 199 0260 2 F 
> 200 0261 2 .+ : : 
s 201 Oc6¢ 2 ' Unlock the file variable. 3 
: eu 0263 2 !- 3 
3; 203 0264 2 3 
: 204 0265 § PFV CPFV$V_LOCK] = 0; 3 
s 203 0266 3 
; 206 0267 2 RETURN; : 
3; 207 0268 2 ; 3 
; 208 0269 1 END; ' End of routine PASS$READLN2 : 


TITLE PASSAEADLNZ READLN procedure 
-IDENT \1-003\ 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


ge 005 
00000001 00008 
2D 67 6€ 69 72 74 73 2d 08 0000C 


; Routine Size: 96 bytes, Routine Base: _PASS$CODE + 0015 


209 0270 1 
210 0271 1 !<BLF/PAGE> 
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PASSREADLN2 READLN procedure 16-Sep-1984 01:54: AX-11 Bliss-32 V4.0-74 Page 
1-003 PASSREADLN2 = READLN procedure 132808-138e 9352488 PASRTL.SRCIPASREADLN.B 2;1 ’ 33 
.EXTRN PASSREADLN2, PASSSINIT_READ 
“EXTRN PASS$SEND_READ, PAS$$DO~READV 
-EXTRN PAS$$IO_RANDLER 
-EXTRN PASSSVALCIDATE_PFV 
“EXTRN PASSS$GET 

O0FC 00000 .ENTRY PASSREADLN2, Save R2,R3,R4,R5,R6,R7 ; ae! 
5E 08 C2 000 SUBL2 : 
7E D4 000 CLRL  ERROR_ADDR : 0216 

04 AE 7C 00007 CLRO UNWIND ACT : 

6D O02F CF DE OOO0A MOVAL 2$, (FP) : 
56 046 AC D 9000F MOVL  PFV, R6 : 0230 

08 AE 56 DO 00013 MOVL 6, PFV_ADDR : 
02 6C 91 00017 CMPBs« CAP), #2 + 0232 

04 1F OOO1A BLSSU ; 
6£ 08 AC dO 0001C MOVL ERROR, ERROR_ADDR + 0234 
000000006 00 16 00020 1$: JSB PASSSVALIDATE_PFV + 0240 
04 AE 01 00 00026 MOVL = #1 A + 0246 
0000v 30 0002A BSBW  =s- PASSSINIT_READ : 0252 
06 Ab 08 88 900¢0 BISB2 #8, 6(R6) : 0258 
00000000 00 16 00031 JSB PASSS$GET + 0259 
07 Ab 80 8F 8A 00037 BICB2 #128, 7(R6) + 0265 
04 0003c¢ RET + 0269 
0000 0003D 2$: «WORD Save nothing ; 0216 

50 08 AC DO 0003F MOVL  8(AP), RO ; 

50 04 AO DO 00043 MOVL  4(RO), RO ; 
F4 AO QF 00047 PUSHAB ERROR ADDR : 

F8 AO OF OO04A PUSHAB UNWIND ACT : 

FC AO 9F 0004D PUSHAB PFV_ADBR ; 

03 DD 00050 PUSHL ; 

5E DD 00052 PUSHL : 

7E 04 AC 7D 00054 MOVQ 4 (AP), =(SP) : 

000000006 00 03 FB 00058 CALLS #3, PASS$$IO_HANDLER ; 
04 0005F RET : 
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ASSREADLN2 READLN procedure 1B. 1984 4:22 AX-11 Bliss-32 V4.0 Pa 6| 
3 PASSSINIT_READ = Common setup for READ procedur 12: ~8ep-1984 93; af 6 PASRTL.SRC PASREADLN. 5 2;1 aa (4) 
3 \¢ if 1 SSBTTL apotine be yar - souaee setup for READ procedures’ | ° 
: 21 73 1 GLOBAL ROUTINE a ts INIT ' Common setu ; 
1s 214 7% 1 "Pr: REF ASSPF FILE V 1ABLE i File variab e ; 
> 215 0275 1 FCB_IN: R er ASPASS $FCB EONTROL hl OCK; i Input FCB : 
: 1 Q 6 1 FCB: REF $PASS$FCB EBRTROL “BLOCK i Output FCB : 
: i? 8 oe : ): JSB_INIT_READ NOVACUE= | ; 
: 319 0279 1 !44 | ; 
; 20 0 80 i FUNCTIONAL DESCRIPTION: : 
: 324 0 5¢ 1! This procedure performs the common setup steps for all READ procedures. : 
; § bs8 75 These are: 3 
3 4 8 1! Verify that the file is a textfile : 
; 225 0285 1! If it is the standard file OUTPUT or INPUT, open it. $ 
3; 226 0286 1! verity that the file is in ig whe mode. 3 
s der 0287 1! Resolve any Lazy lookahead in progress. : 
: 3 oSe6 } Move character in user file buffer to record buffer. | ; 
: 256 9290 1 { CALLING SEQUENCE: | 
: $36 i954 : JSB_INIT_READ PASSSINIT_READ (PFV.mr.r, FCB_IN.mr.r; FCB)) 
: 934 0294 | FORMAL PARAMETERS: | : 
: 236 0296 1! PFV - The Pascal File Variable (PFV) passed by colerence in R2. | 
: see $344 : The structure of the PFV is defined in PASPFV.R 
: 239 0299 1! FCB_IN - The address of the FCB for the file, if any. If 
: 240 0300 1! the file is not open, it will be opened oan the 
: st Bap3 } resultant address stored in FCB. 
: 263 $308 1! FCB - The address of the File Control Block (FCB) is an | 
: sie Bene : } output register parameter. 
; 346 0306 t IMPLICIT INPUTS: 
: 248 0308 1 | NONE 
: 249 9309 1! 
: $20 Beto : IMPLICIT OUTPUTS: 
: 252 Os1g 1 i NONE 
: $27 031 1! 
: 32 b3ie ' : ROUTINE VALUE: 
; $3 0316 1 NONE | 
. for 0317 1! 
; $28 Beis ! SIDE EFFECTS: | 
; sey 0320 : If the file is the standard file OUTPUT, it is implicitly opened. 
; 26¢ 0392 i SIGNALLED ERRORS: | 
: 264 0324 1 FILNOTOPE = file not open 
: 265 b352 1! FILNOTTEX = file is not a textfile 
: 266 0326 1! FILNOTINS - file not in Inspection mode 
g 44 b855 i GETAFTEOF = GET attempted after end-of-file 


4 | 
PASSREADL NG READLN procedure 1$-sep-1984 01:54:22 AX-11 Bliss-32 V Page 7) 
1-003 PASSSINIT_READ = Common setup for READ procedur 14-Sep-1984 12:51:46 PASRTL.SRCJP AERLADEN. +} 2:1 (4) | 
; 269 0329 1 !-- : 
; 270 0330 1 3 
; 271 9 1 BEGIN . 
3 if ; | : 
; ar 03 + F 
> 276 bs 4 i Resolve lazy lookahead, if any. : 
s 29 03355 le ‘ 
: sie Oeeh IF NOT .PFV CPFV$V_VALIDJ | : 
: 279 0339 PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB_IN CFCBSR_F(BJ; FCB); | ; 
; spo 0340 : 
° 81 0341 '+ } o 
3 ¢0e Berg i verify that the file is open. : 
; 283 0543 ¢ fa | : 
> 284 0344 2 | : 
> «285 0345 2 IF NOT .PFV CPFV$V_OPEN] ! Not open : 
; 286 0346 2 N 3 
; 287 0347 2 SPASSIO_ERROR (PAS$_FILNOTOPE,0); ! File not open : 
; 288 0348 2 | : 
: 289 0349 2 + $ 
; <0 0350 2 ' If the file is a string (READV), then return immediately. : 
; 291 0351 2 i No further checks are necessary. : 
: 292 O326 2 i. 3 
3 29> 0353 2 3 
> 294 0354 2 IF .FCB CFCBSV_STRINGJ ; 
: 295 0355 2 THEN : 
; 296 0356 2 RETURN; | : 
: 297 0357 2 : 
; 298 0358 2 ‘lea : : | ‘ 
; 299 0359 2 ! Verify that this is a textfile : 
: 301 0361 2 3 
: 302 0362 2 IF NOT .FCB CFCBSV_TEXTJ : 
; 303 0363 2 HEN ] ; : 
; 304 0364 2 SPASSIO_ERROR (PAS$_FILNOTTEX,0); ! File is not a textfile : 
: 305 0365 2 : 
; 306 0366 2 + ‘ 
3 307 0367 2 i Test for Inspection mode : 
: 308 0368 2 in : 
; 309 0369 2 3 
: 39 Bene § IF NO? .FCB CFCBSV_INSPECTION] : 
eit O57 ¢ SPASSIO_ERROR (PAS$_FILNOTINS,O); | ; 
: 1 037 $ 
3 316 0374 2 '+ 3 
s 6345 0375 2 ' Test for end-of-file. : 
s 5 0376 2 !~ $ 
s Sir 0377 § : 
; 318 0378 IF .FCB CFCBSV_EOF] : 
; 84 0379 2 3 
: $$ Bago SPASSIO_ERROR (PAS$_GETAFTEOF ,0); ‘ 
; 523 0382 '¢ 3 
s Se 38 i Move the current character in the user's file buffer to the record ; 
3 $e Beee § ; buffer so that other routines will see it. | : 
* | 7 
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; Routine Size: 


ure 
TREAD = Common setup for READ procedur 


IF NOT .PFV CPFV$V_EOLN] AND NOT 
CHSWCHAR (..PFV CPFVSA_BUFFERI, 
: Success 


06 


‘ 000000006 


006 


F8 
006 


006 


006 


00 


FCB CFCBSV_NOWRITE) 
.FCB CFCBS$A_RECORD_CUR); 


AX--11 Bliss-32 V4.0 


! End of routine PAS$$INIT_READ 


-EXTRN 


E8 00000 PASSSINIT_READ:: 
BCBS 


16 00004 SB 
EO QOO0A 1$: BBS 

D4 QO00F LRL 
9A 00011 MOVZBL 
11 00015 RB 
EO 00017 2$: BBS 

E8 O00IC BLBS 
D4 00020 CLRL 
9A 00022 MOVZBL 
11 00026 BRB 
EO 00028 3$ BBS 

D4 00020 CLRL 
9A 0002F MOVZBL 
11 00033 BRB 

E1 00035 4$ BBC 

D4 O003A CLRL 
9A 0003C MOVZBL 
FB 00040 5$: CALLS 
05 00047 RSB 

EO 00048 6$: BBS 

EO 0004D BBS 

90 00052 MOVB 
05 00057 7$: RSB 


-PASSCODE + 0075 


PASS$S$LOOK_AHE 
PAS$$SIGN 
PASSK_FILNOTT 
PASSK_F ILNOTINS 
PASSK_GE TAF TEOF 
6(PFV), 1$ 
PASS$LOOK_AHEAD 
as of (PFV FVY, 2$ 


#PASSK_FILNOTOPE, 


ons AR: 7$ 
"Be 3$ 


See eae 

#3, -3(FCB), 4$ 

#PASSK_FILNOTINS, 

#5, -3(FCB), 6$ 
-(§P) 


#PASSK_GETAFTEOF, 
#2, PASSS$SIGNAL 


#3, O(PFV), 7$ 
4, -8(F 
a0(PFV), 


CBs, 7$ 
a-20(F CB) 


AHEAD 
AL, PASSK_FILNOTOPE 
NOTTEX 


-(SP) 


-0 
‘> 


PASSREADLN2 READLN procedure b-Se “19 AX-11 Bliss-32 V4.0-7 Pa 9 PAS 
1n008 PASSSEND_READ = Common epilogue for READ proced 1 1b-se0-1984 93; ati PASRTL. SRCJPASREADLN. 8 2:1 wt (5). 1-0 
; 337 96 1 XSBITL "PASSSEND_READ - Connon ¢ ilogue for READ procedures’ ; 
3 3 97 1 GLOBAL ROUTINE r% attr ee 3 
; 9 98 «(1 PFV: REF $ SSPFV. PILE VARIABLE, ' File variable § 
; 340 99 1 FCB: REF SPASSFCB™ CONTROL BLOCK i File control block : 
: re. beoy : ): JSB_LEND_READ NOVAL OE = : 
: 34 402 1 !+¢ | 
: rf BebE } FUNCTIONAL DESCRIPTION: | ; 
: 346 0405 1! This procedure is called at the end of every READ procedure : 
3 7 04 1 i to portage common functions. These are: ; 
; 48 407 1: Move next character to user file buffer (do a GET). 3 
: rH Bt08 : 2. Set STATUS to zero and unlock file variable. : 
; 351 0410 CALLING SEQUENCE: 3 
; 358 psig ! JSB_END_READ PASSSEND_READ (PFV.mr.r, FCB.mr.r) ; 
; 355 0414 | FORMAL PARAMETERS: 3 
: 357 0416 1! PFV - The Pascal File Variable (PFV) passed ¥ corerens® in R2. : 
; 328 pele : The structure of the PFV is defined in PASPFV.R : 
3 360 gh | FCB - The File Control Block of the file. | ; 
: 362 0421 IMPLICIT INPUTS: | : 
; : 
; 364 0035 1 i It is assumed that the file is a textfile, is locked and is | 

: 30? bese ; in Generation mode. 

; 367 0426 IMPLICIT OUTPUTS: 

: 369 0428 1: NONE 

; 370 0429 1: 

: 34 kt ! ROUTINE VALUE: 00 
; Sr 0432 1 | NONE 00 
3; 374 0433 1! 00 
: $2 Bee : : SIDE EFFECTS: 4 
: 377 0436 1: NONE 06 
: 378 0437 1! 06 
Z ie et : SIGNALLED ERRORS: 06 
; 353 0440 1 | NONE 

3 ag 0441 1 Ii- 

; = 0442 1 | 

3 84 044 BEGIN 

: «4385 0444 

; 386 0445 '¢ 

; 87 0446 i If file buffer is mot NOREAD, store the next character to be read 

$ $8 Reet into the user's file buffer. 

: 390 0449 | 

; 91 0450 If FCB CFCBSA_RECORD_CUR] GEQA .FCB CFCBSA_RECORD_END] | 

; 38 0452 BEGIN 


PAR SRC ADL READLN 

1=C03 

; 394 a3 

: 95 

; 396 

t .FCB CFCBS$V _NOREAD3 

; 396 Ree 

3 97 

: 98 

; 399 ree 

; 4600 0459 

; 401 0460 

3 pet 0461 

: 40 prog 

: 6046 46 

; 405 0464 

; 406 0465 

; 407 0466 

; 408 0467 

; 409 0468 

; 4610 0469 

; 411 0470 

: tig 0471 2 

s $6) 0472 2 

; 6146 0473 #1 
10 
05 

; Routine Size: 41 bytes, 


F 
rocedure 16-Sep-1 38% 03:34 
PASSSEND_READ = Common epilogue for READ proced 14-Sep-1984 12:5 


4 
e 


72 
24 


PFV CPFV$V_EOLN] = End of Line 
IF NOT . "FCB LFCBSV _NOREAD 


THEN 
CHSWCHAR (ZC' *, .PFV CPFVSA_BUFFER]); 


ELSE 
IF NOT .FCB CFCBSV_NOREAD] 


CHSWCHAR (..FCB CFCBSA_RECORD_CUR], .PFV CPFVSA_BUFFER]); 


! User buffer gets a blank 


'¢ 
i Set STATUS to indicate success. 
; Unlock file variable. 


FCB CFCBSL -STATUS] = 0; 
PFV CPFV$V_LOCK) = 0; 


RETURN; ' Success 
END; ! End of routine PASSSEND_READ 
FO OA EC A7 D1 00000 PAS$SEND_READ:: 
CMPL 7g0 rca). -16(F CB) 
OF 1F 00005 BLSSU 
Ab 08 88 00007 BISB2 i. 6(PFV) 
FB OA? 03 £0 00008 BBS a 
B6 20 90 00010 MOVB 435, socerys < 
OA 11 00014 BRB 
FB AT 03 £0 00016 1$ BBS -B(FCB), 2$ 
00 86 EC B7 90 0001B MOVB eSocteose a0(PFV) 
04 AZ D4 00020 28 CLRL -44(FCB) 
07 Ab 80 8F BA 00023 BICB2 #128, 7(PFV) 
05 00028 


Routine Base: _PASS$CODE + OOCD 


0474 1 
0475 1 !<BLF/PAGE> 


2 AX-11 Bliss-32 V4.0-74 
6 PASRTL.SRCJPASREADLN.B52; 1 


Bete Se Ge Se Se Se Se Be Se Be 


4 
PASSREADLN2 READLN procedure 18- $ep-1984 01:54:2 AX-11 Bliss-92 V 
1-008 PASSSDO READY - Do a READV 14- ~8ep-19 4 b:34%¢ PASRTL.SR RCIFA aSRE Sheen. hS2. 71 


—_— 
v0 
‘i> 
onn 


: 418 476 1 XSBITL "PASSSDO_READV = Do a READV' , 
; 419 477 1 GLOBAL aoe Ay tay 3 
: 420 478 1 PFV: REF SPASSPFV_FILE VARIABLE, ! PFV of string file ; 
> 421 479 1 STRING: REF aL OCK"C, BYT ' String to read from 3 
; 6 é 480 1 ARGUMENT LIST: REF VECTOR €, LONG), i Argument List ; 
: 4 481 1 ROUTI NE_ADDR ' Routine to call | i 
> 424 ¢ 1 Steg ° ' RO of result 3 
> 425 04 1 RESUL ! R1 of result : 
: 426 0484 1 d: USB DO -READV NOVALUE = ; 
: 427 0485 1 : 
: 428 0486 1 !++ $ 
; 429 Be 7 1°! FUNCTIONAL DESCRIPTION: : 
; 4350 486 1! 3 
>; 43) 0489 1 ! CALLING SEQUENCE: : 
: $3 0490 1! | 3 
; 43 0491 1! JSB_DO_READV PASS$$DO i (PFV.mr.r, STRING.m 3 
: 434 0492 1! ARGUMENT _LIST.rlu.r ROUTINE qaDoR. fzem.r; : 
; 435 0493 1} RESULT-RO, RESULT_RI) | ; 
; 436 0494 1! ; 
; 437 0495 1 ! FORMAL PARAMETERS: | : 
; 438 0496 1! : 
; 439 0497 1! PFV - Pascal File Variable allocated by our caller. 3 
; 440 0498 1! It is filled in here. : 
: 441 0499 1! 3 
; 442 0500 1! STRING - A descriptor of the string to read from. : 
> 443 ea 1! : 
> 444 502 1! ARGUMENT_LIST = Argument List for a CALLG : 
: 445 0503 1! $ 
: 446 0504 1! ROUTINE_ADDR - The address of the PASSREAD_xxx routine to call ; 
: 4467 0505 1! to actually do the work. | 3 
: 448 0506 1! ; 
3; 449 0507 1! RESULT_RO - The RO of the function result, if any. : 
: 450 0508 1! : 
; «4451 0509 1! RESULT_R1 - The R1 of the function result, if any. : 
; 45 0510 1! | ; 
: 45 0511 1 =! IMPLICIT INPUTS: : 
3; 454 Ber§ 1 ! $ 
3; 455 0513 1! Caller's AP (for the address of the string descriptor. 3 
; 456 0514 1! : 
3; 457 0515 1 ! IMPLICIT OUTPUTS: | 3 
: 458 0516 1! : 
: 459 0517 1! NONE é 
: 460 0518 1! 3 
; 461 0319 1 | ROUTINE VALUE: | : 
3; 46 520 1! : 
; 46 0521 1! NONE : 
: 464 05 4 1: | : 
: 465 05 1 ! SIDE EFFECTS: : 
: 466 0524 1! 3 
: 467 0525 1! See called ruutine 3 
; 468 be $ 1! 3 
3; 469 5 1 ! SIGNALLED ERRORS: 3 
; 470 82 Be 3 
3 6471 >, aa NONE : 
; 47 B2 BS. ; 
: 467 531 1 !e- : 
: 674 0532 1 3 


H 4 
PASSREADLNG READLN procedure 16-Sep-1984 91:34:08 AX-11 Bliss-32 V4.0-74 Page 12 
1 3 PASSSDO_READV = Do a READV 14-Sep-1984 12:51:46 PASRTL.SRCJPASREADLN.B352;1 (6) 
| 

; 475 0533 BEGIN | 3 
: 476 534 : 
; 47 535 LOCAL : 
; rth 2 § FCB_BLOCK: S$PAS$FCB_CONTROL_BLOCK; ! File Control Block . 
; 480 538 BIND H 
: rt} B275 FCB = FCB_BLOCK + FCBSK_BLN: SPASSFCB_CONTROL_BLOCK; ; 
; 48 0541 BUILTIN 3 
: 484 Berg CALLG; 3 
: «+485 054 | 3 
; $36 0544 \+ F : 
3; «6 0545 ! Set up the Pascal File Variable ; 
; 488 Bee6 te 3 
> 489 054 3 
; 490 0548 PFV CPFVSA_BUFFER] = 0; ! No file buffer ; 
> 491 0549 PFV CPFVSB_VERSION) = PF V$K_CUR_VERSION; ! PFV version number ; 
; 49 0550 PFV CPFVSW_FLAGS) = 0; ! Initially zero bits | : 
; 49 0551 PFV CPFVS$V_VALIDJ = 1; ' PFV is valid ; 
>; 494 B2eg PFV CPFVS$V_FCB VALID] = 1; : FCB address is valid : 
; 495 055 PFV CPFVS$V_OPER) = 1; ' File is “‘open’ : 
: 496 0554 PFV CPFVSVEOF DEFINED] = 1; i EOF(f) is defined | : 
; 497 0555 PFV CPFVS$V_DFB] = 1; ' File buffer is defined : 
; 498 0556 PFV CPFVSA_PFD] = PFD_READV CPFDSR_PFD]; i Address of PFD 3 
; 499 0557 PFV CPFVSA_FCB) = FCB CFCBSR_FCB); ! Address of FCB : 
; 500 0558 | ; 
; 501 0559 2 + | : 
; 502 0560 ' Set up the File Control Block (FCB). Only set those fields which 3 
; 503 0561 ' will be used. | $ 
: 504 0296 te 3 
; 505 056 ; 
; 506 0564 FCB CFCBSA_PFV) = PFV CPFVSR_PFV); ! Address of PFV : 
: 507 0565 2 FCB CFCBSA_PFD) = PFD_READV CPFDSR_PFDI; ! Address of name : 
; 508 0566 2 FCB CFCBSW_ATTRIB) = TPFD_READV CPFD$W_ATTRIBI; ' Attributes : 
; 509 0567 2 FCB CFCBSL-OPTIONS1) = 0; ' Initially 0 : 
; 510 0568 2 FCB CFCBSV_INSPECTION) = 1; ! In Inspection mode F 
3 ST) 0569 2 FCB CFCBSV_STRING) = 1; ! String file : 
; 31g 0570 FCB CFCBSL-RECORD_NUMBER] = 1; i “Record 1° | : 
; 51 0571 | 3 
; 514 B26 1+ ; 
, 315 0573 2 ! Get the “‘Line’’ pointer and length, and set the FCB accordingly. 3 
; 516 0574 2 ! If the last READV on this string ended with FCBSV_LAZY set, we : 
. ir 0575 ! zeroed the descriptor pointer. Look for that here. : 
3s 318 B278 le : 
s S19 57 3 
3 320 0578 FCB Bane isgatt = .STRING CDSCSA_POINTER]); : 
; 521 0579 FCB CFCBSA_RECORD-CUR] = .FCB CFCBSA_RECORD_BEG); : 
. é 0580 IF .FCB CFCBSA_RECORD_CUR) EQLA 0 | ; 
; 2 0581 THE | : 
; 524 B256 GIN | 3 
R peo B28 FCB CFCB$V_LAZY) = 1; : 
i 36 384 PV CPFVSV-VALID] = 6; | : 
; 3 8 0386 FCB EFCBs._neconp_teny = .STRING COSC$W_LENGTH); | ; 
; 2 3 0587 FCB CFCBSA~RECORD~END) = .FCB CFCBSA_RECORD_BEG) + .FCB CFCBSL_RECORD_LEN); | ; 
; $31 0589 '+ | ; 


4 } 

PASSREADLN2 READLN procedure rhese -1984 01:54:22 AX-11 Bliss-32 V4.0-74 P 13) 

1-003 PASSSDO_READV = Do a READV 12-88-1984 03:34:28 PASRTL.SRC JPASREADLN.B352;1 ning (6) | 
; ; ¢ 0331 : Call the appropriate routine, saving the result. ; 
: 9 : 
: H 5 0398 CALLG (ARGUMENT_LIST CO], .ROUTINE_ADDR; RESULT_RO, RESULT_R1); : 
3 8 0896 i*y date the ‘Line’ string descri | 
: ! Update the ne'' string descriptor. F 
2) is i septs F i 
; 541 §399 STRING CDSCSA_POINTER] = .FCB_CFCBSA_RECORD CUR]; 3 
; 548 Bene STRING CDSCS$W_LENGTH) = .FCB CFCBSA_RECORD_END) - .FCB CKCBSA_RECORD_CURI; : 
: $44 060¢ 1+ : 
; 545 060 : If this READV ended with FCBSV_LAZY set, zero the descriptor pointer. | : 
; 546 0604 ' This will Let us know on the next READV, and lets us signa ; 
3; 547 0605 ! GETAFTEOF in all cases when appropriate, especially READ. CHAR. r 
> 548 06 ! Note that the length will already be zero. ; 
3; 549 0607 Ls 3 
; 550 0608 | 3 
3 Del 0609 2 If .FCB CFCB$V_LAZY) : 
3 226 0610 § THEN 3 
, 95 0611 STRING CDSCSA_POINTER] = 0; 3 
: ee O618 3 RETURN sg | 
; 3 ' Success 3 
; 556 0614 2 ; 
; Dor 0615 1 END; ! End of routine PAS$$DO_READV : 
{ * 
: 
5E BC AE 9E 00000 PAS$$DO_READV:: 3 
MOVAB -68(SP), SP 3: 0477 bs 
66 D4 00004 CLRL (PFV ; 0548 : 
50 04 A6 YE 00006 MOVAB 4(PFV), RO 3 0549 3 
60 94 OO000A CLRB (RO) : $ 
02 Ad B4 0000C CLRW 2(RO) ; 0550 r 
02 Ad 6007 8F A8& OOOODF BISW2 #24583, 2(RO) : 0555 3 
08 A6 FEF1 CF 9E 00015 MOVAB PFD_READV, 8(PFV) 3; 0556 : 
OC Ab 44 AE 9E 00018 MOVAB FCB; 12(PFY) : 0557 : 
20 =AE 56 00 00020 MOVL PFV, FCB-36 : 0564 5 
28 OAE FEE2 CF a B08 4 MOVAB PFD_READV, FCB-2 ; 0565 3 
3C AE FEEO CF BO O002A MOVW PFD_READV+4, FCB-8 3: 0566 3 
40 AE D4 B08 9 CLRL FCB=4 3: 0567 3 
41 AE 1008 8F As 000 BISW2 #4104, FCB-2 ; 0569 é 
OC AE 01 00 00039 MOVL #1, FCB-56 : 0570 : 
¢ AE 04 A2 DO 00030 MOVL 4 (STRING), FCB-24 : 0578 : 
O AE 2c af 00 Bos MOVL FCB-24, FCB~20 3 Ban : 
08 12 0004 ®NEQ 1$ : 0580 3 
41 AE 04 88 00049 B1SB #4, FCB-3 ; 0583 3 
0 AO 01 A 00040 BICB #1, 2(RG) ; 0584 é 
AE 62 3¢ 00051 1$: MOVZWL (STRING) FcBe : 0586 : 
34 AE 2c oA 38 AE OCT 0095 ADDL3 FCB-12, FCB-24, FCB-16 : 0587 : 
64 63 FA 0005C CALLG (ARGUMENT LISTS, (ROUTINE_ADDR) : 0593 ; 
0 A2 38 AE 0 005F MOVL FCB-20, 4TSTR g 0599 | é 

6¢ 4 AE 0 AE A3 00064 SUBW3 FCB-20, FCB-16, (STRING) ; 0600 
0 41 AE 02 £1 0006A BBC #2, FCB-3, 2$ : 0609 | 
} 


‘ | 
PASSREADLN2 READLN procedure 18-sep-1 4 4: AX-11 Bliss-32 V4.0-74 Page 14. 
1 3 PASSSDO READY = Do a READV 12-888: 1382 9}: 24 43 PASRTL.SRCJPASREADLN.B52;1 . (6) 
04 A2 04 QOO6F CLRL STRING? ; 0611 
5E 44 AE OE a0079 23: MOVAB aBt (SP), : yee 
7 RSB 3 


; Routine Size: 119 bytes, Routine Base: _PASSCODE + O0F6 


0616 1 
0617 1 !<BLF/PAGE> 


PASSREADLN2 
1-003 


4 


Name 
_PASSCODE 


File 


~$255$DUA28: 
~$255$DUA28: 


tion Complete 


K 4 


READLN procedur -Sep-1984 4: AX-11 Bliss-32 v4.0 p 5) 
PASSSDOREADV < Do @ READV eae AP a ET ht tS ee tei PP age 
ae 1 END | End of module PASSREADLN2 

620 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
365 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


qnessaee Syabels scenceee Pages Processing 

Total Loaded Percent Mapped Time 
SYSLIBISTARLET.L32;1 9776 2 0 581 00:01.0 
PASRTL.OBJJPASLIB.L32;1 427 124 29 33 00:00.4 


COMMAND QUALIFIERS 


PL SSE/CHE CREF EELS, EME T EAL .OPT IRL ESD /NOTRACE AL SE1, SES ePASREARLN/ORISOR IS PASREAOLE MSRC$:PASREADLN/UPDATE=(ENHS$: PASREADLN 


344 code + 21 data bytes 
00:12.0 
0:40. 


une 


101 pages 


scstiaeaealaatapnictiamaiinien 
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